unit CaixaVendasFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ComCtrls, ActnList, StdCtrls, DBCtrls, DBGrids, ExtCtrls, MainFr;

type

  { TCaixaVendasFrame }

  TCaixaVendasFrame = class(TMainFrame)
    AlterarAction: TAction;
    CaixaActionList: TActionList;
    CancelarAction: TAction;
    IDCaixaEdit: TDBEdit;
    DBEdit2: TDBEdit;
    DBGrid1: TDBGrid;
    DinheiroEdit: TEdit;
    ChequeEdit: TEdit;
    CartaoEdit: TEdit;
    PrazoEdit: TEdit;
    TrocoEdit: TEdit;
    ValesEdit: TEdit;
    ExcluirAction: TAction;
    FecharAction: TAction;
    FecharCaixa: TAction;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    InserirAction: TAction;
    LocalizarCaixa: TAction;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    LocalizarAction: TAction;
    Panel26: TPanel;
    Panel27: TPanel;
    PanelTotal: TPanel;
    RecordImageList: TImageList;
    SalvarAction: TAction;
    ToolBar1: TToolBar;
    ToolButton14: TToolButton;
    ToolButton18: TToolButton;
    ToolButton3: TToolButton;
    ToolButton7: TToolButton;
    procedure FecharCaixaExecute(Sender: TObject);
    procedure IDCaixaEditKeyPress(Sender: TObject; var Key: char);
    procedure LocalizarCaixaExecute(Sender: TObject);
    procedure BuscaVendas();
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

{ TCaixaVendasFrame }
uses
  Initializator, CaixaDM;

procedure TCaixaVendasFrame.LocalizarCaixaExecute(Sender: TObject);
begin
  TheControl.ShowSearchFrame(TMainFrame(CaixaSearchFrame));
end;

procedure TCaixaVendasFrame.BuscaVendas();
begin
  CaixaData.BuscaVendas(IDCaixaEdit.Text);
end;

procedure TCaixaVendasFrame.FecharCaixaExecute(Sender: TObject);
begin
  TheControl.BackFrame();
end;

procedure TCaixaVendasFrame.IDCaixaEditKeyPress(Sender: TObject; var Key: char);
begin
  if key = #13 then begin
    CartaoEdit.Text := CaixaData.BuscaTotalCartao(IDCaixaEdit.Text);
    ChequeEdit.Text := CaixaData.BuscaTotalCheque(IDCaixaEdit.Text);
    DinheiroEdit.Text := CaixaData.BuscaTotalDinheiro(IDCaixaEdit.Text);
    ValesEdit.Text := CaixaData.BuscaTotalSaidaCaixa(IDCaixaEdit.Text);
    TrocoEdit.Text := CaixaData.BuscaTrocoAnterior();
    PrazoEdit.Text := CaixaData.BuscaTotalPrazo(IDCaixaEdit.Text);
    PanelTotal.Caption := FloatToStr(StrToFloatDef(CartaoEdit.Text, 0) +
      StrToFloatDef(ChequeEdit.Text, 0) + StrToFloatDef(DinheiroEdit.Text, 0) +
      StrToFloatDef(TrocoEdit.Text, 0) + StrToFloatDef(PrazoEdit.Text, 0));
    BuscaVendas();
  end;
end;

initialization
  {$I caixavendasfr.lrs}

end.
